home *** CD-ROM | disk | FTP | other *** search
/ Carousel / CAROUSEL.cdr / mactosh / hc / workstat.sit / WorkStation v3.8 / card_3051.txt < prev    next >
Text File  |  1988-02-26  |  3KB  |  145 lines
  1. -- card: 3051 from stack: in.8
  2. -- bmap block id: 2060
  3. -- flags: 4000
  4. -- background id: 2783
  5. -- name: Main Card
  6. ----- HyperTalk script -----
  7. on openCard
  8.   hide bkgnd btn id 5
  9.   show bkgnd btn id 34
  10.   show bkgnd btn id 145
  11.   pass openCard
  12. end openCard
  13.  
  14. on closeCard
  15.   hide bkgnd btn id 145
  16.   hide bkgnd btn id 34
  17.   show bkgnd btn id 5
  18.   hide bkgnd btn id 124
  19.   hide card field id 125
  20.   set the lockText of card field id 8 to true
  21.   hide card field id 8
  22.   hide card btn id 127
  23.   hide card btn id 128
  24.   pass closeCard
  25. end closeCard
  26.  
  27. on doMenu it
  28.   if it is "Delete Card" or it is "Cut Card" then
  29.     Beep 20
  30.     answer "I can't let you remove the MAIN card!" with "Oops, sorry!"
  31.     exit doMenu
  32.   end if
  33.   pass doMenu
  34. end doMenu
  35.  
  36.  
  37. -- part 8 (field)
  38. -- low flags: 81
  39. -- high flags: 2007
  40. -- rect: left=10 top=166 right=280 bottom=175
  41. -- title width / last selected line: 0
  42. -- icon id / first selected line: 0 / 0
  43. -- text alignment: 0
  44. -- font id: 0
  45. -- text size: 12
  46. -- style flags: 0
  47. -- line height: 16
  48. -- part name: Cards
  49. ----- HyperTalk script -----
  50. on mouseUp
  51.   hide btn id 127
  52.   hide card field id 8
  53. end mouseUp
  54.  
  55.  
  56. -- part 125 (field)
  57. -- low flags: 81
  58. -- high flags: 2002
  59. -- rect: left=10 top=293 right=332 bottom=503
  60. -- title width / last selected line: 0
  61. -- icon id / first selected line: 0 / 0
  62. -- text alignment: 1
  63. -- font id: 0
  64. -- text size: 12
  65. -- style flags: 0
  66. -- line height: 16
  67. -- part name: Welcome
  68. ----- HyperTalk script -----
  69. on mouseUp
  70.   hide card field id 125
  71. end mouseUp
  72.  
  73.  
  74.  
  75. -- part 127 (button)
  76. -- low flags: 80
  77. -- high flags: 0000
  78. -- rect: left=138 top=166 right=196 bottom=159
  79. -- title width / last selected line: 0
  80. -- icon id / first selected line: 26509 / 26509
  81. -- text alignment: 1
  82. -- font id: 0
  83. -- text size: 12
  84. -- style flags: 0
  85. -- line height: 16
  86. -- part name: Unlock Text
  87. ----- HyperTalk script -----
  88. on mouseUp
  89.   set lockText of card field id 8 to false
  90.   hide card button id 127
  91.   show card button id 128
  92. end mouseUp
  93.  
  94.  
  95.  
  96. -- part 128 (button)
  97. -- low flags: 80
  98. -- high flags: 0000
  99. -- rect: left=139 top=165 right=197 bottom=158
  100. -- title width / last selected line: 0
  101. -- icon id / first selected line: 12517 / 12517
  102. -- text alignment: 1
  103. -- font id: 0
  104. -- text size: 12
  105. -- style flags: 0
  106. -- line height: 16
  107. -- part name: Lock Text
  108. ----- HyperTalk script -----
  109. on mouseUp
  110.   set lockText of card field id 8 to true
  111.   hide card button id 128
  112.   show card button id 127
  113. end mouseUp
  114.  
  115.  
  116.  
  117. -- part contents for card part 8
  118. ----- text -----
  119. Data Base,Graphics,Main Card,Phone Directory,Utilities,Data Base,Word Processing,HyperCard Utilities,HyperCard Stacks,
  120.  
  121. -- part contents for background part 23
  122. ----- text -----
  123. Main Card
  124.  
  125. -- part contents for background part 36
  126. ----- text -----
  127.                                           Currently installing the Work Station┬⌐
  128.                                                button into your "Home" stack...
  129.                                                ΓǪit's definitely worth the wait!
  130.  
  131. -- part contents for background part 45
  132. ----- text -----
  133. Work Station┬⌐ v3.8    by Debbie Iwatate ┬⌐1988
  134. (XCMDs/XFCNs by James L. Paul, D. DeMars, S. Maller, Aron Roberts)
  135. "FREEWARE"ΓǪ  use at your own riskΓǪdo not sell!
  136.  
  137. -- part contents for background part 22
  138. ----- text -----
  139. 2/26/88
  140. 12:37 PM
  141.  
  142. -- part contents for card part 125
  143. ----- text -----
  144. Welcome to Work Station┬⌐ v3.8ΓǪby Debbie Iwatate
  145. Click and hold on "Button/Card TasksΓǪ" and select "Work Station Help"